﻿Public Class clsRoute
    Public Function selectRouteByLhjAndType(lhj As String, type As String) As DataTable
        Dim szSql As String = "SELECT * FROM agv.route WHERE lhj = ? and type = ?"
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, lhj, type)
        If IsNothing(dt) Then
            selectRouteByLhjAndType = New DataTable
        Else
            selectRouteByLhjAndType = dt
        End If
    End Function
End Class
